home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / MENU_UTL / LIBPAS / TESTMENU.PAS < prev   
Pascal/Delphi Source File  |  1991-06-14  |  837b  |  30 lines

  1. program TestMenu;
  2. uses crt,Library;
  3.  
  4. const
  5.   ChoiceData : ScrMenuRec =
  6.     (selection : ('Choice 1','Choice 2','Choice 3','Choice 4','','','','');
  7.      Descripts : (('This is','No 1','The First Choice'),
  8.                   ('Number 2','The Second Choice and default',''),
  9.                   ('Number 3','Last Choice, for now...','Last Line'),
  10.                   ('Number 4','An added Selection','How bout that?'),
  11.                   ('','',''),
  12.                   ('','',''),
  13.                   ('','',''),
  14.                   ('','','')));
  15. var
  16.   ScrMenu : ScrMenuType;
  17.   Choice : integer;
  18.  
  19. begin
  20.   TextColor(white);
  21.   TextBackGround(Blue);
  22.   ClrScr;
  23.   ScrMenu.NumChoices := 4;
  24.   ScrMenu.Last := 2;
  25.   ScrMenu.Line := 6;
  26.   ScrMenu.Col  := 30;
  27.   ScrMenu.Setup(ChoiceData);
  28.   Choice := ScrMenu.GetChoice;
  29.   ReadLn;
  30. end.